home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 43 / PC Gamer IT CD 43 1-2.iso / DATABASE / PCG.EXE / 0 / RCDATA / TFORMCOMPANY / TFORMCOMPANY.txt
Text File  |  1999-04-05  |  10KB  |  467 lines
  1. object FormCompany: TFormCompany
  2.   Left = 317
  3.   Top = 133
  4.   ActiveControl = CompanyNavigator
  5.   BorderStyle = bsDialog
  6.   Caption = 'PC Gamer DISC'
  7.   ClientHeight = 449
  8.   ClientWidth = 632
  9.   Font.Charset = ANSI_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -15
  12.   Font.Name = 'Arial'
  13.   Font.Style = []
  14.   KeyPreview = True
  15.   Position = poScreenCenter
  16.   Scaled = False
  17.   OnClose = FormClose
  18.   OnCreate = FormCreate
  19.   OnDestroy = FormDestroy
  20.   OnKeyDown = FormKeyDown
  21.   PixelsPerInch = 120
  22.   TextHeight = 17
  23.   object Image1: TImage
  24.     Left = 0
  25.     Top = 0
  26.     Width = 632
  27.     Height = 449
  28.     AutoSize = True
  29.     OnMouseMove = AllMouseMove
  30.   end
  31.   object LabelCompanyDatabase: TLabel
  32.     Left = 360
  33.     Top = 0
  34.     Width = 219
  35.     Height = 18
  36.     Caption = 'Company Information Database'
  37.     Font.Charset = ANSI_CHARSET
  38.     Font.Color = clWindowText
  39.     Font.Height = -15
  40.     Font.Name = 'Arial'
  41.     Font.Style = [fsBold]
  42.     ParentFont = False
  43.     Transparent = True
  44.   end
  45.   object LabelCompany: TLabel
  46.     Left = 120
  47.     Top = 62
  48.     Width = 67
  49.     Height = 17
  50.     Caption = 'Company:'
  51.     Font.Charset = ANSI_CHARSET
  52.     Font.Color = clWindowText
  53.     Font.Height = -15
  54.     Font.Name = 'Arial'
  55.     Font.Style = []
  56.     ParentFont = False
  57.     Transparent = True
  58.   end
  59.   object DBText1: TDBText
  60.     Left = 120
  61.     Top = 84
  62.     Width = 257
  63.     Height = 69
  64.     DataField = 'CONAME'
  65.     DataSource = CompanyDataSource
  66.     Font.Charset = ANSI_CHARSET
  67.     Font.Color = clRed
  68.     Font.Height = -23
  69.     Font.Name = 'Arial'
  70.     Font.Style = [fsBold]
  71.     ParentFont = False
  72.     Transparent = True
  73.     WordWrap = True
  74.   end
  75.   object LabelTechNumber: TLabel
  76.     Left = 120
  77.     Top = 161
  78.     Width = 92
  79.     Height = 17
  80.     Caption = 'Tech Support:'
  81.     Font.Charset = ANSI_CHARSET
  82.     Font.Color = clWindowText
  83.     Font.Height = -15
  84.     Font.Name = 'Arial'
  85.     Font.Style = []
  86.     ParentFont = False
  87.     Transparent = True
  88.   end
  89.   object DBText2: TDBText
  90.     Left = 120
  91.     Top = 178
  92.     Width = 62
  93.     Height = 18
  94.     AutoSize = True
  95.     DataField = 'TECHNUMBER'
  96.     DataSource = CompanyDataSource
  97.     Font.Charset = ANSI_CHARSET
  98.     Font.Color = clWindowText
  99.     Font.Height = -15
  100.     Font.Name = 'Arial'
  101.     Font.Style = [fsBold]
  102.     ParentFont = False
  103.     Transparent = True
  104.   end
  105.   object LabelAddress: TLabel
  106.     Left = 388
  107.     Top = 62
  108.     Width = 58
  109.     Height = 17
  110.     Caption = 'Address:'
  111.     Font.Charset = ANSI_CHARSET
  112.     Font.Color = clWindowText
  113.     Font.Height = -15
  114.     Font.Name = 'Arial'
  115.     Font.Style = []
  116.     ParentFont = False
  117.     Transparent = True
  118.   end
  119.   object DBText3: TDBText
  120.     Left = 388
  121.     Top = 84
  122.     Width = 237
  123.     Height = 36
  124.     DataField = 'ADDRESS'
  125.     DataSource = CompanyDataSource
  126.     Font.Charset = ANSI_CHARSET
  127.     Font.Color = clWindowText
  128.     Font.Height = -15
  129.     Font.Name = 'Arial'
  130.     Font.Style = [fsBold]
  131.     ParentFont = False
  132.     Transparent = True
  133.     WordWrap = True
  134.   end
  135.   object DBText4: TDBText
  136.     Left = 388
  137.     Top = 123
  138.     Width = 62
  139.     Height = 18
  140.     AutoSize = True
  141.     DataField = 'CITY'
  142.     DataSource = CompanyDataSource
  143.     Font.Charset = ANSI_CHARSET
  144.     Font.Color = clWindowText
  145.     Font.Height = -15
  146.     Font.Name = 'Arial'
  147.     Font.Style = [fsBold]
  148.     ParentFont = False
  149.     Transparent = True
  150.   end
  151.   object DBText5: TDBText
  152.     Left = 388
  153.     Top = 143
  154.     Width = 62
  155.     Height = 18
  156.     AutoSize = True
  157.     DataField = 'STATE'
  158.     DataSource = CompanyDataSource
  159.     Font.Charset = ANSI_CHARSET
  160.     Font.Color = clWindowText
  161.     Font.Height = -15
  162.     Font.Name = 'Arial'
  163.     Font.Style = [fsBold]
  164.     ParentFont = False
  165.     Transparent = True
  166.   end
  167.   object DBText6: TDBText
  168.     Left = 441
  169.     Top = 143
  170.     Width = 62
  171.     Height = 18
  172.     AutoSize = True
  173.     DataField = 'ZIP'
  174.     DataSource = CompanyDataSource
  175.     Font.Charset = ANSI_CHARSET
  176.     Font.Color = clWindowText
  177.     Font.Height = -15
  178.     Font.Name = 'Arial'
  179.     Font.Style = [fsBold]
  180.     ParentFont = False
  181.     Transparent = True
  182.   end
  183.   object LabelWebSite: TLabel
  184.     Left = 120
  185.     Top = 249
  186.     Width = 64
  187.     Height = 17
  188.     Caption = 'Web Site:'
  189.     Font.Charset = ANSI_CHARSET
  190.     Font.Color = clWindowText
  191.     Font.Height = -15
  192.     Font.Name = 'Arial'
  193.     Font.Style = []
  194.     ParentFont = False
  195.     Transparent = True
  196.   end
  197.   object DBText7: TDBText
  198.     Left = 120
  199.     Top = 266
  200.     Width = 62
  201.     Height = 18
  202.     AutoSize = True
  203.     DataField = 'URL'
  204.     DataSource = CompanyDataSource
  205.     Font.Charset = ANSI_CHARSET
  206.     Font.Color = clWindowText
  207.     Font.Height = -15
  208.     Font.Name = 'Arial'
  209.     Font.Style = [fsBold]
  210.     ParentFont = False
  211.     Transparent = True
  212.   end
  213.   object LabelOrderNumber: TLabel
  214.     Left = 120
  215.     Top = 204
  216.     Width = 90
  217.     Height = 17
  218.     Caption = 'Order Hotline:'
  219.     Font.Charset = ANSI_CHARSET
  220.     Font.Color = clWindowText
  221.     Font.Height = -15
  222.     Font.Name = 'Arial'
  223.     Font.Style = []
  224.     ParentFont = False
  225.     Transparent = True
  226.   end
  227.   object DBText8: TDBText
  228.     Left = 120
  229.     Top = 221
  230.     Width = 62
  231.     Height = 18
  232.     AutoSize = True
  233.     DataField = 'ORDERNUMBE'
  234.     DataSource = CompanyDataSource
  235.     Font.Charset = ANSI_CHARSET
  236.     Font.Color = clWindowText
  237.     Font.Height = -15
  238.     Font.Name = 'Arial'
  239.     Font.Style = [fsBold]
  240.     ParentFont = False
  241.     Transparent = True
  242.   end
  243.   object LabelEmail: TLabel
  244.     Left = 388
  245.     Top = 249
  246.     Width = 102
  247.     Height = 17
  248.     Caption = 'E-Mail Address:'
  249.     Font.Charset = ANSI_CHARSET
  250.     Font.Color = clWindowText
  251.     Font.Height = -15
  252.     Font.Name = 'Arial'
  253.     Font.Style = []
  254.     ParentFont = False
  255.     Transparent = True
  256.   end
  257.   object DBText9: TDBText
  258.     Left = 388
  259.     Top = 266
  260.     Width = 62
  261.     Height = 18
  262.     AutoSize = True
  263.     DataField = 'EMAIL'
  264.     DataSource = CompanyDataSource
  265.     Font.Charset = ANSI_CHARSET
  266.     Font.Color = clWindowText
  267.     Font.Height = -15
  268.     Font.Name = 'Arial'
  269.     Font.Style = [fsBold]
  270.     ParentFont = False
  271.     Transparent = True
  272.   end
  273.   object LabelNotes: TLabel
  274.     Left = 120
  275.     Top = 290
  276.     Width = 42
  277.     Height = 17
  278.     Caption = 'Notes:'
  279.     Font.Charset = ANSI_CHARSET
  280.     Font.Color = clWindowText
  281.     Font.Height = -15
  282.     Font.Name = 'Arial'
  283.     Font.Style = []
  284.     ParentFont = False
  285.     Transparent = True
  286.   end
  287.   object DBText10: TDBText
  288.     Left = 120
  289.     Top = 312
  290.     Width = 505
  291.     Height = 97
  292.     DataField = 'NOTES'
  293.     DataSource = CompanyDataSource
  294.     Font.Charset = ANSI_CHARSET
  295.     Font.Color = clWindowText
  296.     Font.Height = -15
  297.     Font.Name = 'Arial'
  298.     Font.Style = [fsBold]
  299.     ParentFont = False
  300.     Transparent = True
  301.     WordWrap = True
  302.   end
  303.   object LabelTypeStr: TLabel
  304.     Left = 121
  305.     Top = 425
  306.     Width = 79
  307.     Height = 16
  308.     Caption = 'Type a string:'
  309.     Font.Charset = ANSI_CHARSET
  310.     Font.Color = clWindowText
  311.     Font.Height = -13
  312.     Font.Name = 'Arial'
  313.     Font.Style = []
  314.     ParentFont = False
  315.     Transparent = True
  316.   end
  317.   object LabelContactNumber: TLabel
  318.     Left = 388
  319.     Top = 204
  320.     Width = 111
  321.     Height = 17
  322.     Caption = 'Contact Number:'
  323.     Font.Charset = ANSI_CHARSET
  324.     Font.Color = clWindowText
  325.     Font.Height = -15
  326.     Font.Name = 'Arial'
  327.     Font.Style = []
  328.     ParentFont = False
  329.     Transparent = True
  330.   end
  331.   object DBText11: TDBText
  332.     Left = 388
  333.     Top = 221
  334.     Width = 70
  335.     Height = 18
  336.     AutoSize = True
  337.     DataField = 'MAINCONUMB'
  338.     DataSource = CompanyDataSource
  339.     Font.Charset = ANSI_CHARSET
  340.     Font.Color = clWindowText
  341.     Font.Height = -15
  342.     Font.Name = 'Arial'
  343.     Font.Style = [fsBold]
  344.     ParentFont = False
  345.     Transparent = True
  346.   end
  347.   object LabMenu: TLabel
  348.     Left = 20
  349.     Top = 72
  350.     Width = 40
  351.     Height = 36
  352.     Alignment = taCenter
  353.     Caption = 'Main Menu'
  354.     Color = clBlack
  355.     Font.Charset = ANSI_CHARSET
  356.     Font.Color = clWhite
  357.     Font.Height = -15
  358.     Font.Name = 'Arial'
  359.     Font.Style = [fsBold]
  360.     ParentColor = False
  361.     ParentFont = False
  362.     WordWrap = True
  363.     OnClick = LabMenuClick
  364.     OnMouseMove = AllMouseMove
  365.   end
  366.   object LabClose: TLabel
  367.     Left = 20
  368.     Top = 360
  369.     Width = 41
  370.     Height = 18
  371.     Alignment = taCenter
  372.     Caption = 'Close'
  373.     Color = clBlack
  374.     Font.Charset = ANSI_CHARSET
  375.     Font.Color = clWhite
  376.     Font.Height = -15
  377.     Font.Name = 'Arial'
  378.     Font.Style = [fsBold]
  379.     ParentColor = False
  380.     ParentFont = False
  381.     WordWrap = True
  382.     OnClick = LabCloseClick
  383.     OnMouseMove = AllMouseMove
  384.   end
  385.   object LabSearch: TLabel
  386.     Left = 15
  387.     Top = 128
  388.     Width = 50
  389.     Height = 36
  390.     Alignment = taCenter
  391.     Caption = 'Search Dialog'
  392.     Color = clBlack
  393.     Font.Charset = ANSI_CHARSET
  394.     Font.Color = clWhite
  395.     Font.Height = -15
  396.     Font.Name = 'Arial'
  397.     Font.Style = [fsBold]
  398.     ParentColor = False
  399.     ParentFont = False
  400.     WordWrap = True
  401.     OnClick = LabSearchClick
  402.     OnMouseMove = AllMouseMove
  403.   end
  404.   object CompanyNavigator: TDBNavigator
  405.     Left = 432
  406.     Top = 37
  407.     Width = 188
  408.     Height = 20
  409.     DataSource = CompanyDataSource
  410.     VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  411.     ParentShowHint = False
  412.     ShowHint = True
  413.     TabOrder = 0
  414.     TabStop = True
  415.   end
  416.   object EditSearch: TEdit
  417.     Left = 204
  418.     Top = 421
  419.     Width = 188
  420.     Height = 25
  421.     Color = clSilver
  422.     TabOrder = 1
  423.     OnKeyDown = EditSearchKeyDown
  424.   end
  425.   object BtnSearch: TButton
  426.     Left = 402
  427.     Top = 421
  428.     Width = 97
  429.     Height = 25
  430.     Caption = 'Search'
  431.     ParentShowHint = False
  432.     ShowHint = True
  433.     TabOrder = 2
  434.     OnClick = BtnSearchClick
  435.   end
  436.   object BtnSearchAgain: TButton
  437.     Left = 506
  438.     Top = 421
  439.     Width = 121
  440.     Height = 25
  441.     Caption = 'Search Again'
  442.     ParentShowHint = False
  443.     ShowHint = True
  444.     TabOrder = 3
  445.     OnClick = BtnSearchAgainClick
  446.   end
  447.   object CompanyTable: TMDBFTable
  448.     About = 'MiTeC DBF Table 1.35 - ∩┐╜ 1997-98, MichaL MutL'
  449.     FileName = 'company.dbf'
  450.     SaveData = False
  451.     Left = 16
  452.     Top = 184
  453.   end
  454.   object CompanyDataSource: TDataSource
  455.     DataSet = CompanyTable
  456.     Left = 16
  457.     Top = 216
  458.   end
  459.   object PlacementInfo: TFormPlacement
  460.     IniFileName = 'PCGamer_Lx1'
  461.     IniSection = 'FormCompany'
  462.     UseRegistry = True
  463.     Left = 16
  464.     Top = 248
  465.   end
  466. end
  467.